; * lisp/faces.el (readable-foreground-color): Fix editing mistake.

diff --git a/lisp/faces.el b/lisp/faces.el
index 5ecc256f07793963a0b27e82fb44da2126438dbd..8c3e464cb86382830bcdc49223ba671c4b40cd16 100644 (file)
--- a/lisp/faces.el
+++ b/lisp/faces.el
@@ -1790,7 +1790,8 @@ The returned value is a string representing black or white, depending
 on which one provides better contrast with COLOR."
   ;; We use #ffffff instead of "white", because the latter is sometimes
   ;; less than white.  That way, we get the best contrast possible.
-  (if (color-dark-p (mapcar (lambda (c) (/ c 65535.0)) color))
+  (if (color-dark-p (mapcar (lambda (c) (/ c 65535.0))
+                            (color-values color)))
       "#ffffff" "black"))
 
 (defun color-dark-p (rgb)